home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #264 (1993)(Rhein-Sieg-Soft).zip / Franz PD Disk #264 (1993)(Rhein-Sieg-Soft).adf / KKK-rel-GFA / CAS8.GFA (.txt) < prev    next >
GFA-BASIC Amiga  |  1993-10-11  |  36KB  |  470 lines
  1. GFA-AMIGAB
  2. COUNTER
  3. BEFEHL
  4. NICHT
  5. BEKANNT
  6. COLOR
  7. ZEILEN
  8. FELDERJN
  9. MOUSK
  10. VERSION
  11. FUELL
  12. LOESCH
  13. SUFFIX
  14. INITPRINTER
  15. CONDON
  16. CONDOFF
  17. NLQON
  18. NLQOFF
  19. UNDLNON
  20. UNDLNOFF
  21. NOMARGIN
  22. CHECK
  23. WINTEXT
  24. FEHLER
  25. VARTXT
  26. VERZNAME
  27. CHECK
  28. DATEIGROESSE
  29. VARFLAG
  30. FREMEM
  31. LAENGE
  32. AVALIMEM
  33. MENUE
  34. DIRNAME
  35. VERZNAME
  36. VERZSIZE
  37. VERZBLKS
  38. FARBWERT
  39. FARBZAHL
  40. SATZLAENGE
  41. ABBRUCH
  42. SATZNR
  43. DATEIGROESSE
  44. COUNTER
  45. GESPEICHERT
  46. RELOFFEN
  47. SPALTE
  48. DOPPEL
  49. SEARCH
  50. CHECK
  51. DIRNAME
  52. RECORD
  53. OPENREQ
  54. ZEILEN
  55. SORT1
  56. SORT2
  57. FELDY
  58. FELDX
  59. DIMFLAG
  60. TABELLENANFANG
  61. AKTIVFARBE
  62. ZFARBE
  63. VERZNAME
  64. BUTTON
  65. TEXT4
  66. AGAIN
  67. EINRICHTEN
  68. ENDE.ST
  69. EINGABE
  70. EINGABE2
  71. DATAUS
  72. NEIN1
  73. NEIN2
  74. NEIN3
  75. FARBE
  76. ENDE.KUVERTSUCHEN
  77. KUVERTSUCHEN
  78. NEINL
  79. ENDE.FETTDRUCK
  80. ENDE.DOPPELDRUCK
  81. ENDE.AENDERN
  82. LADEN
  83. LWEITER
  84. DOPEN
  85. ENDE.SAB    ENDE.SAUF
  86. ENDE.PAINT4
  87. ENDE.PTEXT
  88. ENDE.SCHLIESSEN
  89. DATEILOESCHEN    ENDE.MOD7
  90. JAENDE
  91. NEINENDE
  92. DRUCKEN
  93. MODUS6
  94. DATEI
  95. DFORMAT
  96. KDRUCK
  97. FEHLER
  98. WA5    FEHLEREND
  99. ENDESUBR
  100. GETKEY
  101. ENDE.INTEXT
  102. RECHTS
  103. LINKS
  104. ENDE.GETLINE
  105. FARBSPEICHER
  106. MCHECK
  107. ENDE.FARBWAHL
  108. GRUNDWERTE
  109. GRUNDDATEN
  110. ENDE.KL    ENDE.FETT
  111. ENDE.DOPPEL    ENDE.EINR
  112. PWEITER
  113. PTEXT
  114. INTEXT
  115. LENDE
  116. LLENDE    EXITFUNC3    EXITFUNC4
  117. DATENAUS
  118. ENDE.DRUCKEN
  119. EINR    ENDE.ENDE
  120. ENDE.KUVERT
  121. FEHLER
  122. CONTROLC
  123. TEXT1
  124. TITEL
  125. SETTITLE
  126. GETDIR
  127. AUSWAHL    MENUESAUS
  128. RETURN_
  129. MENUESAN
  130. DATEINAMEEINGABE
  131. OPENWIN4
  132. GETLINE
  133. INFO    KOPFZEILE
  134. LOESCHEN
  135. RAHMEN
  136. LABEL650    DATEITEST    REQUESTER
  137. OEFFNEN2
  138. INTEXT
  139. PAINT3
  140. SATZSCHREIBEN
  141. KUVERTSUCHEN
  142. MODUSSETZEN
  143. KUVERTLOESCHEN
  144. AENDERN
  145. KUVERT    FETTDRUCK
  146. DOPPELDRUCK
  147. PAINT4
  148. PTEXT
  149. SCHLIESSEN
  150. MOD7    OPENWIN11
  151. MODUS6
  152. SORTDIR
  153. FARBWAHL
  154. CURPOS
  155. REGLERFELD
  156. FARBFELDWAHL
  157. REGELN
  158. REGLER1
  159. REGLER2
  160. DOS.LIB
  161. INTUITION.LIB
  162. CTRL.SHIFT.ALT
  163. EINRICHTEN
  164. LADEN
  165. DATEILOESCHEN
  166. EINGABE
  167. FARBE
  168. DATEI
  169. DFORMAT
  170. KDRUCK
  171. PCOLOR
  172. DATENAUS
  173. ETTDRUCK
  174. ENDE.INTEXT
  175. WAIT100
  176. OEFFNEN
  177. MENAUS
  178. CLOSEDATEI
  179. UNLOCK
  180. EXAMINE
  181. EXNEXT
  182. FREEREMEMBER
  183. SETWINDOWTITLES
  184. ACTIVATEWINDOW
  185. DIRSIZE
  186. DIRBLKS
  187. LAENGE
  188. VERZIZE
  189. VERZSIZE
  190. VERZBLKS
  191. Kompaktkassettenkuvert.REL, Version 2.18a, (cas8)
  192. Lothar Berndt, 46446 Emmerich, 8/92
  193. 0Kompaktkassettenkuvert.REL, Version 2.18a (cas8)FF
  194. Letzte 
  195. nderung am 22.08.1993F
  196. KKK-BildschirmF
  197. KKK-Schalter!
  198. KKK-BildschirmF
  199.  Anzahl der Eintr
  200. ge im Verzeichnis
  201.  Anzahl der Felder-1, bei Seite A 14, bei Seite B 14
  202.   Anzahl der Datens
  203. tze pro Datei
  204. Nr.:F
  205. TA:FF
  206. NR:FF
  207. .KKK_RELFF
  208. ANFANGF
  209. ENDEF
  210. Maximale Anzahl erreichtF
  211. Daten ausgeben Fe
  212.  Kompaktkassetenkuvert-BildschirmF
  213. Das geht nicht!Fu
  214. Sicher?F 
  215. Datei 
  216. ffnen oder einrichtenF
  217. %Datei einrichten, Dateinamen eingebenF
  218. Datensatz eingeben Ft
  219. Datensatz ausgeben Ft
  220. Datei 
  221. ffnenF
  222. Datei von Diskette l
  223. schenF
  224. BeendenFn
  225. [4wFF
  226. [3wFF
  227. [4mFF
  228. [24mF
  229. DateiF
  230. Einrichten F
  231. ffnen     F
  232. Schlie
  233. en  F
  234. schen    F
  235. VerzeichnisF
  236. Ende       F
  237.     DatensatzF 
  238.     Eingeben F 
  239.     Farbe    F 
  240. InfoF
  241. ProgrammF
  242. Datei   F
  243. Format  F
  244. Druck   F
  245. Tasten  F
  246. Verzeichnis lesen!
  247. DatenF
  248. Kompaktkassetten-KuvertF
  249.  Lothar Berndt  1993FF
  250. NDERNF
  251. ANFANGF
  252. <<<FN
  253. >>>FN
  254. ENDEF
  255. SCHENF
  256. GEHE NACH NUMMERF
  257. EIN KUVERT DRUCKENF
  258.     FETTDRUCKF 
  259. DOPPELDRUCKFR
  260. Dateinamen eingeben: F
  261. Daten/
  262.  Rahmen um Cursor
  263. ABBRUCHF
  264. InfoF
  265. Kuvertnummer:F
  266. Frei BASIC:"FF
  267. Frei System:"F
  268. Datens. belegt:"FF
  269. Datens. frei:"FF
  270. Dateiname: "FF
  271. Nr.:FF
  272. Dateiname: ";
  273. Daten/
  274. Die Datei existiert bereits!FF
  275. berschreiben?
  276.   NEIN F
  277.     Alles OK?
  278.   NEIN F
  279. Kuvertnummer:"FF
  280. Frei BASIC:"FF
  281. Frei System:"F
  282. Datens. belegt:"FF
  283. Datens. frei:"FF
  284. Dateiname: "FF
  285. Nr.:FF
  286.   Kopf
  287.         FF
  288. Chrome  FF
  289. DOLBY C FF
  290. 90      FF
  291. ------------------------- Seite A
  292. ------------------------- Seite B
  293. ------------------------- Fu
  294. ----------------------------
  295. Eingaben OK?F
  296. NEINF
  297. ABBRUCHF"
  298.  NEIN
  299.  ABBRUCH
  300. NEINF
  301. ABBRUCHF
  302. Gehe nach Nummer!
  303. Kuvertnummer eingeben: F
  304. Nur Kuvert "FF
  305. 1 bis "7
  306. Kuvert l
  307. schen!
  308. Kuvert l
  309. schen?
  310. ABBRUCH Fw
  311. Diese Funktion istFF
  312. noch nichtFF
  313. implementiert!FF
  314.  ANFANG
  315.  ENDE
  316.  Kick in zweite Schalterreihe
  317. Fettdruck?
  318.   NEIN F
  319. Doppeldruck?
  320.   NEIN Ft
  321. Kuvert 
  322. ndern!
  323.   Kopf
  324. ----------------------- Seite A
  325. ----------------------- Seite B
  326. ------------------------- Fu
  327. ---------------------------
  328. Kuvert ge
  329. ndertF
  330. DateinamenFF
  331. BytesF
  332. ckeFF
  333. ffnenFF
  334. AbbruchF
  335. Verzeichnis lesen!
  336. DatenF
  337.  scroll ab
  338.  scroll auf
  339.  Datei 
  340. ffnen
  341.  Abbruch
  342.  Print Text in Req
  343. Daten/
  344. ffnenFF
  345. AbbruchF
  346. Schlie
  347. e Datei!
  348. Dateinamen eingeben: F
  349. Daten/
  350. Datei:FF
  351.  ist gel
  352. scht.FF
  353. DatenF
  354. Linke Maustaste dr
  355. ckenF
  356. ZUM MEN
  357.   NEIN F
  358. KKK-MENUE.GFAF
  359. Ein Kuvert drucken!
  360. Drucker OK?
  361. ABBRUCH F
  362. Drucke Kuvert "F
  363. prt:F
  364.    Fettdruck ein
  365.    Fettdruck aus
  366. [22mFF
  367.    Doppeldruck ein
  368.    Doppeldruck aus
  369. -------------------------------------------------- Kopf
  370. | "FF
  371.      "F
  372.      "F
  373.      "F
  374.      "F
  375. | A:"
  376. -------------------------------------------------- Seite A/B Titel
  377. -------------------------------------------------- Fu
  378. | Nr: "
  379. |  A: "
  380.   |FF
  381. |  B: "
  382. --------------------------------------------------
  383. | Datei:
  384. Das ProgrammFF
  385. " Von Lothar Berndt, 46446 EmmerichFF
  386. , Version in AmigaBASIC erstellt im Jahr 1990FF
  387. ' In GFABASIC konvertiert im Jahr 8/1992F
  388.  Datens
  389. tze pro DateiF
  390.  28 Titel pro KuvertFF
  391.  Feldl
  392. nge 31 Zeichen"FF
  393. DateiF
  394. Aktuelle Datei..............: ";
  395. Dateigr
  396. e in Bytes.........:"7
  397. Feie Bytes Systemspeicher...:"7
  398. Anzahl Datens
  399. tze ..........:"7
  400. Anzahl Felder...............:"7
  401. Datensatzl
  402. nge..............:"7
  403. FormatFF
  404. !Nr., TA, NR, L
  405. N    je  8 ZeichenF
  406. !A: und B: Kopfzeile je 29 ZeichenF
  407. !Felder f
  408. r Titel    je 31 ZeichenF
  409. Nr:                     "7
  410.  ZeichenFF
  411.  A:                    "7
  412.  ZeichenFF
  413.  B:                    "7
  414.  ZeichenFF
  415. Kuvert druckenFF
  416. @ Vorgesehen  ist der Druck auf Einzelbl
  417. tter im  Format  DIN-A4.FF
  418. @ Vier Kassettenh
  419. llen passen auf ein DIN-A4-Blatt.  Auf die lin-FF
  420. @ ke Seite des Blattes werden zwei H
  421. llen untereinander gedruckt.FF
  422. @ Dann wird  durch  ein  FF (Form Feed) an den Drucker, das BlattFF
  423. @ ausgeworfen.  Um die anderen zwei H
  424. llen zu drucken,  dreht manFF
  425. @ das Blatt um 180
  426.  und steckt es erneut in den Drucker.  DruckenFF
  427. @ auf Endlospapier ist auch  m
  428. glich.  Um  Papier zu sparen, kannFF
  429. @ man nach dem drucken der H
  430. lfte,  das  Papier  abtrennen und umFF
  431. ) 180
  432.  gedreht, erneut durchlaufen lassen.F
  433. %Tastaturbelegung beim eingeben/
  434. ndernF
  435. 9 RETURN       = ein Feld tiefer, leere Felder  werden alsF
  436. 2                Leerfelder gesichert ( chr$(32) )!FF
  437. ' CURSORTASTEN = ab, auf, rechts, links.F
  438. 4 DEL          = l
  439. scht ein Zeichen unter dem Cursor,FF
  440. 7                nachfolgende Zeichen r
  441. cken nach links.F
  442. 5 BACKSPACE    = l
  443. scht ein Zeichen links  vom Cursor,F
  444. 7                nachfolgende Zeichen r
  445. cken nach links.F
  446. = F10          = l
  447. scht das aktuelle Feld (wo der Cursor ist).F
  448. = ESC          = erzwingt den Abbruch der Eingabe im aktuellenF
  449. :                Feld. Da die Felder vorher mit LeerzeichenFF
  450. 7                gef
  451. llt wurden, werden leere Felder alsF
  452. 7                Leerfelder gesichert (wie bei RETURN_)!F
  453. ? SPACE        = schiebt den Text rechts vom Cursor nach rechts.F
  454. ? LINKE MAUST. = positioniert den Cursor wo d. Mauszeiger steht."FF
  455. ! Es ist ein Fehler aufgetreten! |F
  456.  OK | OK | OK FF
  457. 0Fataler Fehler, das Programm wird neu gestartet!FF
  458. WOLLEN SIE BEENDEN?
  459.   NEIN F
  460. --------------------------
  461.     RequesterF
  462.  NEIN
  463. Anzahl Zeilen-1,Spalte,Zeile,Cursorfarbe,Hintergrundf.,laenge(),dat$()
  464. Spalte,Zeile,AnzahlZeichen,Cursorfarbe,Hintergrundfarbe,Text$
  465.  Klick in OK
  466.  Klick in Abbruch
  467.  rechts
  468.  links
  469. J  JF
  470.